home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
pkey12_1.zip
/
DUCT.LSP
< prev
next >
Wrap
Text File
|
1992-09-13
|
937b
|
26 lines
;Duct Program (stupid). Dumb derivation of wall program. hehehehe!
;
;
(defun dtr (angg)
(* pi (/ angg 180.0)))
(defun WLINE ()
(setq pt2 (getpoint pt1 "\nNext point "))
(if (= pt2 nil)(err))(command "line" pt1 pt2 "")
(setq ang (angle pt1 pt2))
(setq pt3 (polar pt1 (- ang (dtr 90)) do1))
(setq pt4 (polar pt2 (- ang (dtr 90)) do1))
(command "line" pt3 pt4 "")
(setq lp1 lp2)(setq lp2 (entlast))(setq pt1 pt2))
(defun wrf ()
(setvar "LASTPOINT" (getpoint "Reference point: "))
(SETQ PT1(getpoint "\nEnter relative/polar coordinates (with @): ")))
(if (= do1 nil)(setq *do1 4.5))
(setq oer *error* *error* err)
(pre)
(initget (+ 2 4))
(setq do1(getdist(strcat "Enter duct width <" (rtos *do1) ">: ")))
(if (= do1 nil)(setq do1 *do1)(setq *do1 do1))
(setq pt1 (getpoint "\nPick starting point : "))
(if (= pt1 nil)(WRF))
(setq pt0 pt1)(WLINE)(setq e 1)(while e (WLINE)(command "fillet" lp1 lp2)))
(princ)